home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / main / clx.lisp next >
Lisp/Scheme  |  1992-09-10  |  817b  |  22 lines
  1. ;;; (C) Copyright 1990-1992 by Wade L. Hennessey. All rights reserved.
  2.  
  3. (defun lmain ()
  4.   (setf *root-directory* (or (probe-file #.(compute-root-directory))
  5.                  (find-root-directory)))
  6.   (setf *default-libraries* '(:cl :clx))
  7.   (format t ";;; WCL Development Environment for SPARC running SunOS~%")
  8.   (format t ";;; Common Lisp ~A library built at ~A~%"
  9.       *cl-version* *cl-build-date*)
  10.   (format t ";;; Compiler ~A library built at ~A~%"
  11.       *compiler-version* *compiler-build-date*)
  12.   (format t ";;; CLX ~A library built at ~A~%"
  13.       xlib::*clx-version* xlib::*clx-build-date*)
  14.   (print-copyright)
  15.   (format t ";;; Remember to avoid gcc when using clx:~%")
  16.   (format t ";;; (progn (lisp::initialize-compiler) ~
  17.                         (setf *target-machine* *sparcstation-cc*))~%")
  18.   (load-init-file)
  19.   (repl))
  20.  
  21.  
  22.